home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
win_m_p
/
pwez51.zip
/
MAKERAND.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-04-01
|
1KB
|
37 lines
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'!!! ** [ READ THIS ] ** !!!!!!!! ** [ READ THIS ] ** !!!
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' INSTRUCTIONS
'
' 1. LOAD AND RUN MAKERAND.BAS ( THIS FILE ) TO MAKE THE RANDOM DATA FILE,
' RANDDATA.DAT.
'
'***************************************************************************
TYPE REC
MARK AS STRING * 1
NAM AS STRING * 25
ADD1 AS STRING * 30
CITY AS STRING * 25
STATE AS STRING * 10
ZIP AS STRING * 9
END TYPE
DIM RECORD AS REC
RECLEN% = LEN(RECORD)
OPEN "RANDDATA.DAT" FOR RANDOM AS 1 LEN = RECLEN%
CLS
LOCATE 1, 1: PRINT "Making random file."
FOR X% = 1 TO 250
RECORD.MARK = CHR$(32)
RECORD.NAM = "THIS IS NAME # ---" + STR$(X%)
RECORD.ADD1 = "THIS IS ADDRESS # ------" + STR$(X%)
RECORD.CITY = "THIS IS CITY # ----" + STR$(X%)
RECORD.STATE = "ST #" + STR$(X%)
RECORD.ZIP = "ZIP #" + STR$(X%)
PUT 1, , RECORD
NEXT
LOCATE 1, 1: PRINT "RANDOM ACCESS FILE HAS BEEN MADE."
CLOSE